home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Loadstar 242
/
242.d81
/
driving nails
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-08-26
|
506b
|
18 lines
10510 fori=0to24:poke54272+i,0:next:ct=0
10520 poke54278,5:rem sus/rel
10530 poke54277,5:rem att/dec
10540 poke54276,129:rem noise wave
10550 poke54295,241:rem res & voice
10560 poke54293,54:poke54294,28
10570 reada:rem input hi byte of freq
10580 readb:rem input low byte of freq
10590 ifb=-1then10660:rem branch at end
10600 poke54273,a:poke54272,b
10610 fort=1to35:poke54296,79:next
10620 poke54276,128:rem release cycle
10630 goto10530:rem get new note
10640 data17,37,19,63,21,154,22,227,25,177,28,214,32,94,34,175,34,255
10650 data-1,-1
10660 ct=ct+1:ifct+1<6thenrestore:fort=1to100*ct:next:goto10570
10670 poke54296,0:rem turn off vol